•n« 



h 



\ 2 
3 
4 
I 6 
6 
7 
I 8 
9 

10 
I 11 

12 

13 
I M 

15 

16 
I 17 

18 

19 
I 20 

21 

22 
\ 23 

24 

2S 
1 28 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 

44 

46 

46 

47 

48 

49 

SO 

51 

52 

S3 

>4 

55 
56 

57 



LABEL OOOOOOOOOPRIME KOOl/50-JaCC tX 08 JE C T /Rfc AU ; F 1 LE. SOURCEF I LE = S YMBOL/ST A TS 1 ; EnU*- 



OBJECT /READ 



s m^'i / snrs^ 



>r 



8 
9 

10 
11 
12 

13 
14 

p5 

jl6 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



BECilNX TIME ShARING SYS Tem-ST A T 1 bT I C^ FILE ANALVSlb. OOUOOlOO 

comment: * title: H5500/bb70U MARK XlV SYSTEM HtLEASE * OCOOOUO 

* FILE id; SYMhLL/Sr aTSI IaPl Ilj: S Y i'^ dUL ^/F ILEOQQ * 0Q0Q 0111 

* THIS MATERIAL IS PRGPRitlAKY TQ BU^HQUGHS CUHPORATION * OOU06ll2 

* AND IS KCT to be REf'ROQUcED* USED' ^R DISCLOSED * OOOOOlU 
* EXCEPT In ACCURDAnCE ^^ITH pRfJ&RAM lUEnSE QR UPON * 0000 114 

* WRITTEN AUTHOR IZA r lON (JF THE PATFi\T UlvlSlON OF * 00000115 

* BURROUGHS CfjKPOR A T 1 QN* UETRGIT/ MICHIGAN 46232 * 00000116 

* . . * QOQQQUZ- 

* COPYRIGHT (C) 1971* 19?2 BURROUGHS CORPORATION * 00000118 

* AA3202Cfe AA366657 *i 00000119 

F I lrE PR INT 4(?M5)» onOQOpnn 

DISK DISK SERIAL (2#60#60)* 00000300 

TWX REMaTEC2M0)i 00000400 

nnooosoo- 

%---,.•----.-.-»•««--.«--. FORMATS ------------------------------------00000600 

00000700 
FORMAT FCA6/" «"> F6 . 2#"*'% A 1* Tfl) * AF (A i ) > OnQOOf tQQ 

FSCA6»" ='S2(f6,2»"*'%A1> 16»'% ")'F4.1), 00000900 

HO (X8»"X OF J/Q"/X3,"# l/0",xi»"* uF CHAR" , xl * " TG 1 AL SLGS'SX^* OOOQIoOO 

"SEG/ JVQ"). OQOOllQO 

DWC"AVG. DISK DELAY s ♦%F7,3," SECSt")* 00001200 

SWC'AVG. SWAP DELAY * "#F7,3>" SECS."), 00001300 

TS("TOTAL SWAP DELAY » "^F7.3**' MINSt")* , O QOOU OO 

TDC'TOTAL DISK DELAY = "*F/,3f" MjNi,.";* 00001500 

DNC'DOWN TIME = '% f P , 3 , " MiNo."), 00001600 

HCA6>X2fF6.2'"^")* 0Q0Q170Q 

TmC"TIME since last HalT/LUAD is "'Uj-" HOURS ANU ". 00001800 

I'2*" MINUTES")'Lf "STATISTICS FHQM "# 1 2*" »", I 2," UN ",0# 00001900 

^ To '*>l2>"rV>I2'" QN "tO*".")*G(A6/X2*2(F6.2>"ai "))' 00002000 

n(/"normalized'V)*bi(//" Busy idll"/)* 00002100 

DOGraPHSCGRAPHS DESIhEOCYES Ok NO)-"). 00002200 

FUX2* I 3'X2*F7 , 2?^ . QnOQ?^Q O 

F2(X2»I3)* 00002400 

F3Cxi6 *"+---------+---------+---------+— -------", 00002500 

w^.^,,,.--,,^.-,.,-..,,^»»,,.,,,.^-,.,-.,.-t,^ ^ 0000 2600 

ii + ---.----- + -.--«---, + i. ), 00002700" 

F4CX16*"0 10 20 30 "» 000028C0 

"40 50 60 70 "/ 00002900 

"SO 90 100")# 00003000' 

FSC'SWAPPING STATISTICS"), 0000310C 

F6("SEQMENT count IN SEGMENTS/IO* - FREQUENCY Ul aTHIBUTlUN" ) » 00003200 

F7CX1, "SEGMENTS % QF")# 00UU3300" 

F8CX1," MOVED CHAR")' 00003400 

F9CX1*"-------- ----'«), ^ 00003500 

FlO(xlr" MOVED 10 "3' 00003600 

F11CX49#"PERC£NTAGE OF CHARACTERS TRANSFERRED")' 00003700 

F12(X52>"P£RCENTAGE OF l/Q UPERaTIOisS" ) , 00003800 

I0Hdr1("DISK I/O-")* 00003900 

I0H0R2("0THER I/O-")* OOOG40C0 

I0H0R3("T0TAL I/O-")* ■ 00004100 

ASKFORAfILE(*'W.HlCH SYSTEM FILE ")^ ~~^ ~~ 00004$00 

. . . ■ .. ,..00004'300 

SAVEARRAY AC0J613*BC0:1]*SUMSTaTC0!6OJ; " ^"^ ^ " " ~ 00004500 

ARRAY STR[0:i00]*STR2C0!l001*f ILLaRHAYCO! 14J*LOGto:i3; 0000 4600 

REAL T0TAL*SEGTnT*W*X*Y*Z*3*C*T*D*l/bTARTlME*ENUTlMr*AP2; 00004700 

REAu OTHER I6'T0TI0; 00004800 

BOOUEAN RUNT0TAL»SEGS*ENDT0G#8EGlNT0G, graphs; 00004900 

LAB£l EQr*DOAfiAINr onoosnon 



♦3 
44 
45 
46 
47 
48 



49 

50 



S2 
S3 



S4 
55 
56 
67 



5T) 



• t 



>r 



10 

11 



16 
17 
18 
19 
20 



22 



24 



26 
27 



30 

31 

32 

33 

34 

35 

36 

37" 

38 



40 
41 
42 
43 



47 
48 



49 
50 



54 
55 
56 



STKEAM PROCEDljHE SC ANF I Lt ( LJG ) ; 
BEGIN REAL LHC AL?> LOr Al 1; 



SltsLOGi DIJ« lOC LQCALli 

DliaOUi; 

7(tF SC»'V" THfN DSt^LTT" 



•00005100 
00005200 
OOOOSjQO 



SI;=SI + u ci'=DUl; 
DSj=7 chr; 

Sn^LOC LCCALIJ U1;=LUGJ 



ELbg nsts CHRi; 



00005400 
00005500 



0C00570C 

ococseoc 

JlQOO^SLOfi.. 



DSl»l6 chr; 00006000 

ENOi 00006100 

' " jflQ0062QiI- 



stream procedure 

BEGIN 

on=ARAY; 



FILLH ( AKAY*N1*N2*N J*N4); VALUL N 1 * N2# N 3* N4; 



OS la 16111" "; 

DSt«LlT"t«; 

Ni(DSt«LIT"*'*); 



N2(DSIaLIT"*"); 

N3(DS:=LIT" "); 

_MC0S1=LI T •• ••); 



END FILLIT; 



BOOLEAN STREAM PROCEDURE SCANT><X CV EbURNQ); 



BEGIN 

•il : = f£3GRN0> 

6f I F SC = "Y'* THFN 



3cantwxi«tally| 

end; 



TaLlY;^! flSE ai;=S]f 1 ); 



PROCEDURE GRApHlT(STR,A}; VaLUl A; k^AL A 
BEGIN 
»^RITECPRlNrCDBL]#F5); 



ARRAY STrC*J; 
WRlTCCP«Ii'VlLuaL]/F6); 



WRITE(PRINT»F7); 

IF A»0 THEN rtRlTECPRINTCDBU3»F3) 

HRlTE(PRINTCOBt3^F9)J 



ELSE U H I T E C P H 1 N T C DBL ] * F 1 ) i 



FOR IJ= 60 STEP -1 U'MTiU QQ 

BEGIN 
C t=ENTlER(STRn ])> S:^10j-C; 



IF 



C GTr 

BEGIN 
DS»0} 



63 THEN 



T:=C-63; 
C:=63^ 

EMU ELSE 



IF C LSb aO THEN 



BEGIN 

D«»S*63i 

St»63; 



T:s0; 

END ELSE 
BEGIN 



0«»0J 
TJ»0J 
ENOf 



IF C = AND STRCn NEO THcN 
IF (C + T + D + S) GEG 10/4 THEN GO TO 
IF (C LSS Q) OR (T lSS 0) OK (iJ 



BEGIN t;s = i' s:ss-i end; 
doagiAin; 

lSS 0) UR (U LSS 0) THEN 



GO TO ooaqain; 

FILLITCFILLARRAY£03*C*T*S,0); 
WRIT£<PRINTCN03>15^FILLAHRAY[*3 ); 



OOOO63OO 
00006400 
-0X1 00 65.0-0.. 



00006600 
00006700 
000 06800 



00006900 
00007000 
000 07100 



00007200 

"00007300 

00007400 



00007500 

00007600 

-OfiOOIlfiii., 

00007800 
00007900 

'Qoooa ooo 



00008100 

00008200 
000083C0 



00008400 
00008500 
00008600 



00008700 
00008600 
00U0890J 



00009000 
00009100 
00O09200 



00009300 
00009400 
00009500 



w~\* 



00009600 
00009700 
00009600 



00009900 
OOOiOOOO 
OOQlOlOO 



00010200 

Q0010300 

OOP 10 400 



00010500 

00010600 
00010700 



00010800 
00010900 
00011000 



12 
13 



18 
19 



24 

2S 

26 ' 

27 

28 

29 i 

30 



34 
35 ( 
36 
37 
38 { 
39 



42 

43 

44 1 

46 

46 

47 

48 



e 



55 

56 < 

3 



1 

2 
3 
4 
5 
6 

■; 

8 
9 

ro 

12 



13 

14 

05 



F 

18 



19 
20 

21 



22 
23 
24 
25 
26 
27 



28 
29 



31 

32 

33 

34 

3& 

36 

37' 

38 

39 



40 
41 
42 



46 
47 



49 
90 



S2 
S3 



55 
56 



IF STfU. I] NEQ THEN 
WRITE(PRINT,F2*I )/ 

end; 



MR] I'tCPfUi^T^Fl, [,SliU U ) El-SE 



00011100 
00011200 

_0i0j_i_i0ij. 



rtRlTECPRINT[0BL]*F3)i 
rtRITE(PRINT»F4); WR I TE (PRIM )i 
IF A » THEN WRITF(PRINT»F11} 



ELi»E t^RIT£(PRINT^Fl2)J 



END graphit; 



oooiuoo 

00011500 
00011600 



PRUCEDURE PP(Pl,P2*P3);VAi.uE Pi,Pg>PiJ REal Pl^P^.P^; 



00011700 
■00011800 

onoiuoo 



BEGIN 

AP2«»A£A8ScP2)]; 
IF P2 LSS THEN 



ACP2]J=AP2,C24t243; 
IF AIP2] NEQ THEK 
IF P3=0 THEN 



BEGIN P2»gA8ScP2); ACPJ^J 8 = AP2 , U » 233 END ELSE 



00012000 
00012100 
00012200 



WRITECPRINT*G*P1*A[P2]/T0TALx100^ CT0TAL-A[P2])/TaTALxiO0) 

ELSE 

WRiTE(PRINT*HVPl/A[Pg3/TOTALxl0Q)i 



00012300 

00012400 
0Q 012 50Q 



A[P2]«':AP2; 

ENO; 



00012600 
00012700 
000l2fl00 



%• 



PROCEDURE R(R1,r2)J 
8EGIN REAL AR2; 
AR2<*ACABS(R2?3; 



VALUE R1*R2; REAL Rl#H2i 



00012900 

00013000 

'0001310 



IF R2 LSS THEN BEGIN 
ACR2]«=AR2, [24:243; 
IF A[R2] NEQ THEN 



H2'' = ABS(H2); ACR23 :sAhi:,Cl«233 END ELSE 



00013200 
0GO13300 
0013400 



BEGIN IF RUnTOTAL THEN At 03 » =»AL03 *A CR2 3 ; 
IF RUNTOTAL THEN AE 303 MAC 303-AC R2+ 30]; 
IF SEGS then 



00013500 
00013600 
00013700 



00013800 
00013900 
00014000 



BEGIN 00014100 

WRlTECPRlNT#FS»Ri^C» = lA[R2]/TGTALxicaj/"#'VAlR23^ 00014200 

S:s(A[R2 + 303/SEGT0TxlUOJ^"/'%A[ri2-*-3Oj^T'=(AtR2-fJO3/A[R2 3)); 00014300 



IF 



GRAPHS 
BEGIN 
IF T LSS 



THEN 



THEN T!»0 ELSE 



00014400 
00014500 
00014600 



tjsentierct); 
strct3 j=strct3+s; 

STR2CT] t-5TH2rT3-»c; 



00014700 
00014800 
00014900 



End; 

END ELSE 
WRlTE(PRlNT^F^Rl#ACR23/TaTALxlOO#Y»A[R2 3); 



end; 

ACR23SSAR2; 

end; 



00015000 
00015100 
00015200 



DEFINE 
P(Pl«P2a«PPfPl^P2*0i#, 



00015300 

00015400 

-Q0O1 5 5Q0 



Q(0l»Q2#Q3)=R(Ql*Q3)' 
BKSWRITE(PRINT)#; 



ACQ3] J=7aTAL-AL03]; R(Q2^Q3)'#* 



00015700 



00015900 
00016000 
00 1 610 



%■•••«.«.»»••»«»•■.•..■>.•««.»•. MAIN SUOY -"--'■'•••■'-••••"-•'"■■•"••••-•"-••••"-••--■••••■•»oo0l6200 

00016300 
W Rng(TWX[ STOP 3 APOGRAPHS 3; REAQCTWX# //^ Y 3 J Qft016iiQn 



IF SCANTWX(Y) THEN GRAPHS J sTRUE; 
WR1TE(TWX[STOP]»ASKFORAF ILE); READ ( T^X* 2'LL G C* ^ i 

SCANFTLECLQG); 

FILL DISK WITH LOG [63 *LUG C 1 j; 
BEGlNTOGMTRUEi 
■> DQAGAINt ^ 



00016500 
00016600 
0Q0167QQ 



00 Oi 6800 
00016900 
OQ O UOQ Q 



52 
53 ( 
54 
55 
56 ' 
57; 



• • 



h 



12 
13 
14 



15 
16 
17 
18 



19 

20 



21 
22 



23 
24 
2S 
26 
27 
28 
29 
30 



31 
32 
33 
34 
35 
36 



37 
38 
39 
40 
41 
42 
*3 



45 
46 

47 



48 
*9' 
SO 
51 



»3 



54 
55 
56 
57 



READ (DISK»60, AC*] )[ECF j; 
IF AtO] » KEAlCNOT FALSE) 



I HEK 



BEGIN 

FOR U*0 STEP 1 
A(291t«ENDTlME; 



UNTIL 59 DO A t IJ 8 »SOwST AT ll 3 > 



endtogj=true; 

END ELSE 
BEGIN 



IF BEaiNTOG THEN BEGIN STARTIMES«AC 47 ] ; BEGIMOGjaFALSE END; 
FOR ll»0 STEP I UNTIL 27 DO SUMST AT 1 1 3 J aSUMST AT Cl 1+A t U > 
FOR I*»30 STEP 1 yNTXL 4 6 OU SuMSTATint^SyMSTATCIHAUli 



FOR It=48 STEP 1 UNTIL 
SUMSTATt283:=A[28]; 

en d; 



59 DlI SUM5TAT [ I] : = SuM3TA7 [ n+AC I]' 



BKi WRITECPRINTCPAQEJ); 

WRITE(PRINT»TM*AC13DIV 2 16000^ AC 13/3600 MOD 60); 



IF ENDTOG THEN 

WRITeCPRINT^L^STARTIK-E DIV 216000* blARTIMt/ 

36U0 MOD 60*A[2a3,(X«=A[29]) Uly 2 1 6000 , X/3600 



MUD 60,A[28]) 



EtS-E . 

WRITE(PRINT,L*A£473 OIV 216000, AC47J/3600 MOD 60# 

AC«^e3»(X»»At293) DIV 2 1 6000 >X/ 3600 WOP 60>AC28 3)f 



a[03:=maxcac01*ac23); 

total»*a[0]; 

$ Et.TQT L=A [3 Q ]; 



T0Tl0»»AE0)*C0THERI0««At583. Cl J23 3+At583.C24S24 J+ 
ACS>91,Cl»23] + AE593.C24>24])i 

rk; : 



WRITE(PRINT*DW*AC32 3/T0TAL/6O); 

WRlTE(PRlNT*TD*AC32 3/3600)i 

IF Ar3^3«fl THFN Ar34];=l? 



WRITE{PRlNT*SW#AC33 3/AC343/60); 
WRlTECPRlNT*TS#AE33 3/3600); 

bk; 



write cprint*hd); 
bk; 

SEGStaTRUE; RC'TOTAL ">0); SEGS ; =F Al^^E ; 



Yi*"*«; 

bk; 

Q("DKA 



'♦^"DKB 



'>2); 



bk; 

RC^EU 
RC"EU 1 



" * 4 ) ; 



rceu 

BKI 






wr1tecprint*i0h0r1); 
bk; 

R("I0 1 "*35); 



WCIO 



"»36); 
••f-Sdi; 



bk; 

write(print*i0h0r2); 
bk; 



TOlALtsOTHERlo; 
RCIO I "#58)1 
RCIO 2 ♦♦,59}; 



00017100 
0OU17200 



00017400 
00017500 
00017600 



00017700 
0OU178O0 
00017900 



00018000 
00018100 
00018200 



00018300 
00018400 

00018600 
00018700 
000 16 600 



00018900 
00019000 
00019100 



00019200 
00019300 
00019400 



00019500 

00019600 

.QQ01 97 QJ3- 



00019800 
00019900 

nnQ?onofl 



00020100 
00020200 
00020300 



00020400 
00020500 
00Q20ftQn 



00020700 
00020800 
00020900 



00021000 
00021100 
00021200 



00021300 
00021400 
00021500 



00021600 
00021700 
00021600 



00021900 
00022000 
00022100 



00022200 
00022300 
00022400 



00022500 
00022600 
00022700 



00022800 
00022900 
00023000 



2< 
3 

4 

54 

6 

7 

8( 

9 

10 

,l( 

12 



15 

16 

17 ( 

18 

19 

20 ' 

21 

22 

23 ' 

24 

25 

26 ' 

27 

28 

29 ( 

30 

31 

32 t 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

4 J 

42 

43 

44 1 

46 

46 

47 

48 

49 

50 

51 

52 

53 I 

54 

55 

56< 

57 



h 



2 
3 
4 
6 
6 
7 
8 
9 
10 
11 
12 



RC'IO 3 

RC'IO A 

bk; 



'S-58); 



wr1tecphint*i0h0r3); 

total««totio; 

bk; 

At^8 3,[24J2A]:=AC58].[24:24 } + AC3^]. t«iA!;ji»]; 
AC59] ,[24t24]»=A[59] ,[24:2A]+AC j6] . t2'4:24]; 
A[b83.[H23]»«AE5a].[i;23]-^A[3bJ.Cl{23]; 



ACS9].Cl«233l«iAt59],t:iJ;i3] + AC36 3rCH23]; 
RCIO 1 "*58)i 
RC'IO 2 'S59); 



RCIO 
R ( " 1 

bk; 



"»-58); 



00023100 
00023200 

_oM^l3.o.e, 



00U23400 
00023500 
00023600 



OOU23700 
00023800 
00U23900 



00024000 
00024100 
00024200 



00024300 
00024400 
0002450Q 



13 

14 

IS 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

3S 

36 

37 ~ 

38 

39 

«0 

41 

42 



43 
44 
4S 
46 
47 
48 
49 
50 
51 
52 
i3 
» 



S6 



T0TAL»«AC0]; 

q("normal''*''Contrl"*9); 
bk; 



QC'BELQW "^''ABOVE •Vn)* 

bk; 

runtqtal»=truf; 



SE(iSl»TRUE; 
FOR Itao STEP 



RC^E S^. 



1 UNTIU 100 DO STRCU»«STR2Cn!s0> 



i n; 



R("DIR£CT"*12); 
R("HEADER'%25); 
RENAMES "*26) L 



RC'SYS 0K"*23); 
RCLOG "#24); 
R("TANKS "M6i; 



RC'LIBRY 

bk; 

R("SWAPS 



bk; 

RCCODE 
R("CODE 



18); 

15); 



RC'COOE 

bk; 

RC'DATA 



WSIO); 

B"*i9); 



A", 20); 

8"#2i); 



RCDATA A'%22); 

bk; 

RCFRES »»27)} 



RUNTOTAL«=rALSE; 

bk; 

r( "other 'so); 



seqsi»fai*se; 

WRJTE(PRiNT#Bl); 
total t*A£31f 



P("SYSTEM«»14); 
FOR Yi=l STEP 1 
BE GIN 



UNTIL 2 DO 



00024600 
00024700 
00024800 



00024900 
00025000 
QOOaSlQU. 



00025200 
00025300 
000 25 400 



00025500 
00025600 
00025 70 



00025800 
00025900 
Q0Q2000Q 



00026100 
00U26200 
Q0 Q 2 63O _ 



00026400 
00026500 
00026600 



00026700 
00026800 
00026900 
00027000 
00027100 
00027200 
00027300 
00027400 
00027500 



00027600 
00027700 
00027800 



',7)i PCDKb 

pf^-e); PCNRM 



PC "OKA 
P(«NRM 
PCPUPg ">-31); 



»/8); PC'bOTH 

P2"»3i); 



.17); p("PRoci ♦•#6); 



00027900 
00028000 
00028100 



PCCANOE ''*38); BK; PP ("NdL aP 1"* JV* U ; PP ("NQL AP2'''- 39M ); 
PPC"CT0LAP''*43,1 ); 
IF Ysi THEN 



00026200 
00028300 
0Q0264Q0 



BEGIN 

WRITE{PRINT,N); 

T0TAL>«AC143; 



00026500 
00028600 
00026700 



00028800 
00028900 
00029000 



2 
3 

4 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 



IF 



end; 
end; 

GRAPHS% 



Af^ E QESINE D 



00029100 
000^:9200 
0QO ^V30Q 



THEN BEGIN 
WRITECPRINTCPAGEDJ 
GRAPMlTCSTR>n)f 



00029400 
00029500 
Q0029ftQQ 



WRlTECPRINTtPAGE]); 
GRAPHIT(STR2»1); 

£nd; 



000^9700 
000<:9800 

QQ0^9a.afl, 



If ENDTOG THEN GO TO EOF ELSE 
8CGIN 
KNOT THE {aA t293i — — 



00030000 
OOOiOlOO 
00030^00 



JiH 



GO TO OOAGAINj 

end; 

in n oAGA i N ; 



00030300 
OOOiOZfOO 
QOQjQ'iQfl, 



EOF I END. 

enojeno* 



LAST CARD On OCRDING TAPE 



00030600 

99999999 

OQOQQQQQQQOnOOO(nxaAatt»< 



18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 'I 

32 

33 

34 

3S 

36 

37 ~ 

38 

39 

40 

41 

42 

•3 

44 

45 

46 

47 

IS 

49 

50 

51 

52 

53 

54 

55 

56 

B7 



39 

40 

4 J 

42 

43 

44 ^ 

46 

46 

47' 

48 

49 

50l 

51 

52 

53' 

54 

55 

56' 



m • 



